home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / pg&e.alg < prev    next >
Encoding:
Text File  |  1990-05-09  |  2.4 KB  |  74 lines
  1. { PG&E.ALG - Process Pacific Gas & Electric bill data }
  2.  
  3. interp = off;
  4. step = 1;
  5.  
  6. file = "pg&e.dat";
  7. Total = read &        { total bill dollars }
  8. Tax = read &          { tax amount }
  9. Therms = read &       { gas therms for billing period }
  10. ThermsCost = read &   { amount charged for gas therms }
  11. KwHrs = read &        { Kilowatt hours for billing period }
  12. KwHrsCost = read;     { amount charged for electricity }
  13.  
  14. label="Gas and Electric Charges for Each Month";
  15. Ylabel = "Dollars";      Xlabel = "Date";
  16. xformat=dates;
  17. ymin = 0;  ymax = 150;
  18. trace=vline & plot(Total) &
  19. trace=line & plot(ThermsCost) &
  20. plot({ThermsCost + }KwHrsCost);
  21. color=1; text="1 Total Bill (incl taxes)"; note(xposn(.02),yposn(.95));
  22. color=2; text="2 Gas"; note(xposn(.02),yposn(.90));
  23. color=3; text="3 Electricity"; note(xposn(.02),yposn(.85));
  24. pause;
  25.  
  26. label="Gas and Electric Usage";
  27. ylabel="Therms and KwHrs";
  28. ymin = 0;  ymax=400;
  29. erase;
  30. tracenum=on;
  31. color=2 & plot(Therms) & plot(avg(Therms)) &
  32. color=3 & plot(KwHrs) & plot(avg(KwHrs));
  33. color=2; text="1 Gas Therms"; note(xposn(.02),yposn(.90));
  34. color=3; text="2 Electricity KwHrs"; note(xposn(.02),yposn(.85));
  35. pause;
  36.  
  37. label="Ratio of Gas and Electric Charges To Usage for Each Month";
  38. Ylabel = "Ratio : Dollars / Usage";      Xlabel = "Date";
  39. xformat=dates;
  40. ymin = 0;  ymax = 1;
  41. erase;
  42. color = 1 & plot(avg(ThermsCost/Therms)) &
  43. color = 2 & plot(ThermsCost / Therms) &
  44. color = 3 & plot(KwHrsCost / KwHrs);
  45. color=1; text="1 Avg. (Gas Cost / Therms Used)"; note(xposn(.02),yposn(.95));
  46. color=2; text="2 Gas Cost / Therms Used"; note(xposn(.02),yposn(.90));
  47. color=3; text="3 Electricity Cost / KwHrs Used"; note(xposn(.02),yposn(.85));
  48. pause;
  49.  
  50. label="Gas and Electric Charges As A Percentage of Total PG&E Bill";
  51. ylabel="Percentage";
  52. ymin = 0;  ymax=100;
  53. erase;
  54. tracenum=on;
  55. plot(100 * Tax/Total) &
  56. plot(100 * ThermsCost/Total) &
  57. plot(100 * KwHrsCost/Total);
  58. color=1; text="1 Taxes"; note(xposn(.02),yposn(.95));
  59. color=2; text="2 Gas"; note(xposn(.02),yposn(.90));
  60. color=3; text="3 Electricity"; note(xposn(.02),yposn(.85));
  61. pause;
  62.  
  63. scaley(sum(Total));
  64. erase;
  65. label="Cummulative  PG&E  Charges";
  66. ylabel = "Dollars";
  67. total_charges = sum(Total) &
  68. nbr_bills = count(total_charges) &
  69. plot(total_charges);
  70. constant(total_charges);  constant(nbr_bills);
  71. text = "Total PG&E bill: $"; note(total_charges,xposn(.1),yposn(.9));
  72. text = " Avg. PG&E bill: $";
  73. note(total_charges/nbr_bills,xposn(.1),yposn(.85));
  74.